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EDITOR'S COLUMN 

This month introduces the tong-promised 
MARKETING COLUMN. Constderlng that one of the 

best ways to proliferate FORTH is to sell it in the form 
o1 applications, I believe this column will contribute to 
the financial welfare ot our members and help make 
the FORTH language a force in the software world. 
Questions related to all phases of marketing from pro- 
duct research and development to pricing, advertising 
and distrftHitton channels are wetcome. 



Editorial Review Board 

Bill Ragsdaie 
Dave BouKon 
Kim Harris 
John James 
DaveKilbridge 
Henry Laxen 
George Maverick 
Bob Smith 
John Bumgarner 
Bob Berkey 

FORTH DIMENSIONS solicits editorial material, 
comments and letters. No responsibility is assumed 
for accuracy of material submitted. ALL MATERIAL 
PUBLISHED BY THE FORTH INTEREST GROUP IS IN 
THE PUBLIC DOMAIN. Information In FORTH 
DIMENSIONS may be reproduced with credit given to 
the author and the Forth Interest Group, 

Subscription to FORTH DIMENSIONS is free with 
memtiership In the Forth Interest Group at $15.00 per 
year ($27.00 foreign air). For membership, change of 
address and/or to submit material, the address is: 

Forth Interest Group 

P.O. Box 1 1 05 

San Carlos, CA 94070 



HISTORICAL PERSPECTIVE 



FORTH was created by Mr. Charles H. Moore in 
1969 at the National Radio Astronomy Observatory, 
Charlottesville, VA. It was created out of dissatisfaction 
with available im>gramming tools, especially for obser- 
vatory automation. 

Mr. Moore and several associates formed FORTH, 
Inc. in 1973 for the purpose ot licensing and support of 
0ie FORTH Operating System and Programming l>an- 
fpiage, and to supply applicatkm programming to meet 
customers' unique requirements. 

The Forth Interest Group is centered in Northern 
California. Our membership is over 2,400 worldwide. It 
was formed in 1 978 by FORTH programmers to encour- 
age use dS the language by the interchange <a ideas 
tlvough seminars and pulilications. 



Our next edition will be devoted to the conference 
at the University of Rochester and will be coordinated 
by Mr. Larry Forsely of that institution. One of my main 
goats as editor has been to "de^allfornize" FORTH 
DIMENSIONS and make it reflect more accurately the 
opinions and technioues employed throughout ttie 
FORTH world. This next edition is a bold experiment in 
this regard and I have every confidence in Mr. Forsely 
helping to make It a successful one. 

The Issue following ROCHESTER will be devoted to 
music, graphics and games. Currently, this type of ap- 
plication Is in very short supply and I am appealing to 
our members to submit them as soon as possible. 
Please remember, YOU DON'T HAVE TO BE A 
WRITER— our staff wilt help provide whatever is neces- 
sary to make your article or game publishable— but the 
raw Ideas and code have to come from you. Also, we 
are not necessarily lool<ing for lengthy, complex and 
elegant appiications— simple, instructive, short codes 
often are ttest and the most useful. 

Please contribute whatever you can— ultimately the 
quality and utility of FORTH DIMENSIONS comes from 
our members! 

C. J. Street 
Editor 

PUBLISHER'S COLUMH 

Nov. 2-4: MInl/Mlcro Show, Anaheim, CA 
Nov. 25-27: FORML Conference, Pacific Grove, CA 
Nov. 28: FIG National Convention, Santa Clara, CA 
Mar. 19-21 : Computer Faire, San Francisco, CA 

FORTH vendors— ttiese shows can be helpful to 
you In several ways. First, if you will send FIG approxi- 
mately 500 flyers, 8% x 11 , about your products, we'll 
display them at all four places. Second, you should ex- 
hibit at ttie FIG Convention on November 28 at the Mar- 
riott Hotel, Santa Clara, CA. An 8' table is only 
$50.00— send a check to FtG, today. Third, FIG has a 
prime location at Computer Faire. March 19-21, 1082 
in San Francisco. We have booths 1343C and 1442C; 
these face the central booth area and form an Island 
witt> eight other boottis. Six of these booths are cur- 
rently available. Lets get all FORTH vendors together. 
All you have to do is call Computer Faire (415) 
851-7075 and tell them you want to be in the same 
Island as the FORTH Interest Group. 

Roy Martens 
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LETTERS 



Dear Fig; 

1 am disturbed to see that you have recently 
published a review comparing our Z-80 FORTH 
package to TIMINS FORTH and stating that the 
Z-80 FORTH is significantly slower than the 
6080 version- Please be informed that the 
benchmark was run on an early version of Z-80 
FORTH which has not been distributed for the 
last nine months. The current version that we 
are selling has been benchmarked by some of 
our customers as 5-10% FASTER than 8080 
FORTH. 

We have made an effort to provide a high 
quality, comprehensive FORTH program devel- 
opment package at a very reasonable cost. 
Over 300 copies of the current Z-80 FORTH 
version have been sold so far and 1 do not know 
of any unsatisfied customers. I think it reflects 
very poorly on your publication that you would 
print such a review without checking the facts 
with all of the interested parties. If you people 
are really concerned with promoting the 
FORTH language, please be a little more care- 
ful with attacking the reputation and products 
of the FORTH language vendors. 

Ray Duncan 

LABORATORY MICROSYSTEMS 
41A7 Beethoven St. 
Los /^geles, CA 90066 

We fail to see haw publishing a comparison 
review of products that were on the market less 

than a year ago can be construed as an attack 
on either that product or the reputation of its 
vendoi'. 

No inference has been made that Laboratory 

Microsystems Z-8D FORTH is an inferior 
product, or that it has dissatified customers. In 
fact, if the mall we are receiving from your 
customers is any indication, quite the contrary 
is true. Admittedly, the review published failed 
to indicate which versions were being com- 
pared, but we know of no facts that were inac- 
curately reported. If we are to provide the 
FORTH world with useful product reviews, 
accuracy is important, and if Laboratory 
Microsystems knows of any inaccurate facts or 
would care to provide us with an updated 
review, ample space will be provided.~ed. 



Dear Fig: 

Let me introduce myself: I'm Jim Gerow, an 
avid MM5 FORTH user, a FORTH programmer 
(installer) for larger machines, and a member of 
the local MMS FORTH user group. 

I've been referred to you by Dick Miller of 
MMS 38 a CQirrespcmdent. Please let me know 
how I can be of service and how our MMS 
FORTH User Group can support you. 

Jim Gerow 

1630 Worcester Rd., #6300 
Framingham, MA 01701 

Thank you~we would appreciate any arti- 
cles, ideas, bug fixes, or usable programs or 
tools you can send in. Looking forward to 
hearing from you — ed. 

Dear Fig; 

San Diego has a FCT^TH Interest Group that 
meets Informally each Thursday and somewhat 
formally the 4th Tuesday of each month. 

Because of the different machines, MRU's, 
and operating systems, (i.e., Disk or Cassette, 
etc.) we have a problem of software exchange 
(transportability). We are considering the 
development of a communications package 
Involving RS-232 modems and software. 

We are interested in finding out what FIG 
has, if anything, in standardizing any of the 
communications such as protocol or hardware 
specification. 

Currently, most of the software exchange 
involves hardcopy. If you have any information 
relative to communications between FORTH 
operating machines or protocol standards used, 
we would appreciate your help. 

K. G. Busch 
Rancho Bernardo 
12615 Higa Place 
San Diego, CA 92128 

O.K. members—how about giving Ken a 

hand? Or better yet, send the info to FORTH 
DIMENSIONS and we will publish it for ail of 
our members' U8e.~ed. 
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Dear Fig: 

Would you please forward me a writer's 
kit? I'm thinking about writing something for 
Nov./Dec. GRAPHIC/MUSIC, I have imple- 
mented a set of graphic words for Columbia 
Data Products' MX-964 (Z-80 Micro-*2, 512x256 
bit mapped, $10-8080-figFORTH), and am 
working on some musical words for a dual GI's 
sound chip board. If I can get my hands on 
Oigitalk (National Semi) early enough, maybe 
some work also can be done on that before the 
date I send out my articles, 

Since you share the very same address as the 
8080 Renovation Project, would you please for- 
ward the following page to them for me? Many 
thanks. Happy FORTHl 

Tim Huang 

9529 N.E. Gertz Circle 
Portland, OR 97211 

Thanks, Tim— well be in touch. The 
graphics issue is approaching rapidly (deadline is 
Oct. 15, 1981)~word to the wise— ed. 

Dear Fig: 

This is a note authorizing you to use the 
cartoon-style illustrations in the book Starting 
FORTH by Leo Brodie of FORTH, Inc. The 
credit line should read Leo Brodie, FORTH, 
inc., Starting FORTH, a forthcoming Prentice- 
Hall publication. Reprinting by permission of 
ft-entice-Hali, Inc., Englewood Cliffs, N.J. 
After October 1, 1981 you can leave the 
"forthcoming" out since the book will be in 
print. Thank you for your interest. 

Jim F, Fegen, Jr. 

Editor, The Computing Sciences 

PRENTICE-HALL 

Englewood Cliffs, NJ 07652 

Thank you Prentice-Hall. Watch for 
cartoons from this important work.— ed. 

Dear Fig: 

Here is your complimentary copy of Starting 
FORTH. We at FORTH, Inc. hope you enjoy it 
as much as Mark Caret z of INFO WORLD, who 
said it was the best beginner's book he'd seen. 



The hard- and soft-bound editions by 
Prentice-Hall will be on the shelves Sept. 8. 

Let us know what you think of the book. We 
are anxious to hear your comments. 

Winnie Shows 
Public Relations 
FORTH, Inc. 

2309 Pacific Coast Highway 
Hermosa Beach, CA 90254 

Thanks, Winnie. Please note the review in 
this issue.— ed. 

Dear Fig: 

I live in a country town in Australia and the 
number of local computer hobbyists can be 

counti?d on one hand. I have so far converted 
one friend to FORTH and we have found all the 
back issues of FORTH DIMENSIONS very 
helpful with programming examples. I have had 
my system for about 5 years; it is an 51GQ Z-BO 
system with recently added dual Micropolis Mod 
n disks. I have rewritten the 8080 FIG FORTH 
CP/M interface to work with Micropolis DOS 
and am currently reworking some of the 8080 
CODE definitions to use Z-80 instructions 
where they will improve the code. I am 
interested in corresponding with other FIG 
users, particularly those with systems similar to 
mine. 

I wish to make a comment about the naming 
of words related to 32-bit integer operations. 
The present mixture of prefixed "D" and "2" 
make these words more frustrating to iearn and 
use. That would not be the case with consistent 
prefix character. I think that the prefix 
character should be "D" for double, I am sure 
that most of us find the prefix letter "C" easy 
to use for 8 bit operations and I am glad the 
ASCII did not allow 1/2© to be used. When 
floating point comes around (for example, in a 6 
byte format), it seems most likely that F! will 
be used, not 31. So let's be consistent and leave 
digits far numbers and use a prefix letter 
mnemonic to indicate stack operations, etc. 
that are not the usual one word (16 bits). 

Could someone please explain what the HEX 
value AD81 is for, in the definition of 
VOCABULARY? I can't work it out. 
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Keep up the good work with the magazine. 

BiU Miles 
PO Box 225 
Red Cliffs 
Victoria 3496 
Australia 

Thanks for your comments. Bill. Glad to 

hear FORTH ir, alive and well In the land down 
under! How about some of our members 
corresponding with BiU and helping him over the 
rough spots. — ed. 

Dear Fig: 

FORTH DIMENSIONS has grown increasingly 
useful to fTiR in the past few months as I have 
finally begun to "get the hang of" FORTH. I 
have running on my TRS-8Q several versions of 
BASIC, FORTRAN, PASCAL, APL, SAM76 and 
USP under both TRSDOS and CDOS; but I have 
never found any language harder to learn that 
FORTH, Part of the problem is the scope of 
FORTH; at the same time I'm trying to 
understand the interpreter, compiler, OSj and a 
syntax as difficult as LISP's. I have found all 
the instruction manuals so far to make a drastic 
jump from simple concepts like 2 2 + . and 
DO...LOOPS to discussltMis of the Dictionary 
and of Defining Words. (I think the writers had 
the same problems I have, of separating the 
various functions of the system.) One of the 
best helps I received was Mr. Bumgamer's Stack 
Diagram in this year's March issue of BYTE. 
The necessity of being able to visualize the 
stack cannot be overemphasized. Once I was 
able to do that, I starting learning in earnest. 

Having leaped this hurdle, 1 found FORTH 
more rewarding than any other language to 
learn. One of its greatest advantages to me as 
an applications programmer is its (almost) 
utterly consistent syntax: operators, functions, 
and "procedures" disappear and al! you have are 
Words that get their arguments off the stack 
and place their return values on the stack. All 
my applications so far have bean in BASIC. 
They are as "structured" as I can make them 
Cl.e., subroutines calling subroutines), but it 
soon becomes hard to remember what "GOSUB 
12000" does and which variables have to have 
what values in order to do whatever to whom 
and where! Not so with FORTH: although a 



restricted use of variables does make the 
program somewhat less readable, keeping most 
of the arguments and returned values on the 
stack f5ctu;-illy makEjs it more "write able" 
because there is no need to remember what the 
formal or actual parameters are. Right now, 
because of my limited experifence with F"ORTH, 
it takes longer to write a "routine" than it 
would In BASIC: but already the total time to 
test and debug is far less. 

I'm using Miller Microcomputer Services' 
top-notch MMSFORTH, and I have absolutely 
nothing bad to say about these people. Last 
summer I drove down to New England in order 
to pick up some hardware, and decided to drop 
in on Richard and Jill Miller in Natick, MA. 
Thtty shovved me the utmost in hospitality, 
helping me purchase equipment and wasting 
their time in general to make sure that my trip 
was worthwhile. Their product is excellent: 
worth it at twice the price and more (you didn't 
hear that, Dick!)~with standard features such 
as Strings, Double-Precision, Graphics, a good 
Screen Editor, and not one, but several fine 
demonstrations programs. A++ for 

MMSFORTH. 

Mornings tar is a software house in southern 
Ontario that does mainly custom program- 
ming. All of it so far has been BASIC, but we 

expect to have fully switched to FORTH by the 
end of 12 months, D.V. No other language 
would have compelled us to give up "Tandy 
Compatibility/' but the advantages of FORTH 
far outweigh any extra cost for the lanage. 

Thanks for your attention. 

Vincent Otten 
MORNINGSTAR 
225 Dundas St. 
Woodstock, Ontario 
CANADA N4S 1A8 

I am sure Dick Miller appreciates your 
comments. You might also look into Mr. Leo 
Brodie's r«w book Starting FORTH (reviewed 
elsewhere in this issue) that will be available in 
mid-September.~ed 
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Dear Figt 

I very much enjoyed my first pass through 
your article "Compiler Security" in FORTH 
DIMENSIONS m/l. I plm> to re-read the article 
when I have more time. 

In terms of the multi-user environment, 

haven't you almost answered your own question 
of security always versus security on demand 
v/ith your parenthetical "and the other users" 
remark? This was near the end, in the 
discussian of the possible use of a "Novice 
Programmer Rntection" package. In a single- 
U8W envirmment« more liberties can be taken^ 
but I know I'm a novice user, having only b^n 
involved with computers since 1958 or so, and 
having only "FORTHed" non-intenslvely for 
about 3 years. My single-user system would 
always include the protection package 
(well. . .almost always). I would not, however, 
object to making security optional in the single- 
user case (but I am not a prospect for a FORTH 
implementation without it). 

1 don't agree with your characterization of 
^aembler security as inappropriate. It is the 
ability to have unstructured code that causes 
many of the problems with assembly code. If it 
is so easy as to be tempting, we will all err. 
FORTH makes the cost-to-fix versus time- 
error-found curve perhaps less steep, but early 
error detection is stilL cheaper, and software is 
still the largest part of the system cost (and 
getting larger). 1 cannot argue against being 
able to defeat Assembler security fairly easily, 
however, since there may be situations in which 
the risk is worth it. 

John W. Baxter 

Sr. Principal F>rogrammer Analyst 
NCR CORPORATION 
Coronado, CA 

MR. SHAW REPUES: 

I hope that after three years of FORTH 
programming that you have developed good 
FORTH style. This should be the case iKiIess 
you have let your previous 20 years of 
experience interfere with your learning of 
FORTHfe simplistic concepts. 



In either case, you should be aware that 
good FORTH code is well thought out and very 
short. Most definitions, in either high IdVSl 8P 
assembler, should be very short; not more than 
a few lines. In very few instances is high level 
code ever longer. Those definitions that are 
long should be so well scrutinized as to the 
reasons for their length that the type of errors 
that the current compiler security would trap 
should not exist. Assembler code should only be 
used when speed is a critical factor. And then, 
structured code may not be the easiest or 
fastest to program without error, or the fastest 
to execute. The programmer may still program 
structured if he desires. He may even load a 
package to ensure this. And If the code 
definition is Innt; then the statement for high 
level would apply also. The code should be weil 
scrutinized as to reason. 

Note that using SP and ?CSP is a simple and 
effective way to catch many of the errors made 
in either case. They can even be used outside 
of the definitions of : and ; or CODE and END- 
CODE, and never otherwise interfere. I am not 
saying there should be ISO compiler security at 
all. If I had this viewpoint I would not have 
bothered to writ?; the article. Even I feel much 
more comfortable with an application that 1 
have programmed after it has been successfully 
loaded into a secure system. But T do object to 
having to program around the compiler security 
(which wastes time and introduces errors) when 
I wish to load a perfectly correct program 
which the security does not like. With an 
optional package, I can check my application as 
desired, but do not have to fight the compiler 
security to get the job done. Or, I can have the 
security package resident. I make the choice. 

George W. Shaw 
SHAW LABS LTD. 
PO Box 303 

San Lorenzo, CA 94580 




FIG Convention Coming — Nov. 28 
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Here Is a very short contribution, a compiler 
extension, which has been helpful to me. I want 
to share it with all FIGgers; perhaps it can 
become a fig-FORTH standard. 

Often in creating a definition, we want to 

test or output an ASCII character, using words 
like EMIT or - or possibly even in a CASE 
statement. These are normally supplied as 
literal numbRrs in the current radix. These 
compile into the usual dictionary pair of LIT 
followed by the literal value. The difficulty is 
that we must either determine the ASCII code 
experimentally beforehand, or else reach for 
some reference list (usually in the wrong radix). 

This compiler extension allows any editor- 
acceptable character to be displayed in its real 
form while compiling into a normal literal 
pair. While this may prove to be a minor help 
at edit-Lirne, the resultant source code is much 
more readatale at a iater time, and is self- 
commenting, both highly desired features of any 
programming language. 

The new word is ASCH, and it is followed by 
a literal character. The definition of ASCII is 
simple: 

I ASCII 8L WORD HERE 1+ Cp 

[compile] LITERAL; IMMEDIATE 

It is made immediate so that it executes during 
compile-time. WORD takes the next input- 
stream text, delimited by a blank, and places it 
at HERE. Then the first character is placed on 
the stack for use by LITERAL, which has been 
forced to be compiled into our definition. What 
could be easier? 

Formerly, we had to write f,3 EMIT to out- 
put the letter "A" (assuming decimal radix). 
Now we can vwite ASCII A EMIT , clearly the 
better for everybody's understanding. The 
choice of the word ASCII is open to change, but 
the idea is a valuable addition to our efficient 
use of the language. 

That's [Tiy contribution. I hope others can 
use it to improve their work. Thank you for 
providing a medium for idteas. 

Raymond Weisling 
Jin. Citropuran No. 23 
Solo, Jawa Tengah 
Indonesia 



MULTIPLE WHILE SOLUTION 

i have no way of knowing whether this solu- 
tion to the multiple WHILE problem is generally 
known, though I am sure that many people must 
be using it. The note has been kept as short as 
possible, and could easily be expanded. 

(; ENDWHILE 2 - ?COMP 2 ?PAIRS could 

be sirnplifiod to : ENDWHILE ?COMP 4 

7PAIRS probably -it weakens the ENDIF 
analogy a little. 

Many of your readers may not be familiar 
with ENDWHILE as a means of achieving multi- 
ple WHILFs in a BEGIN loop. It is simple and 
convenient, but not elegant. ENDWHILE is used 
in the construction 

BEGIN. . .(test) WHILE. . .(test) WHILE. . . 
ENDWHILE ENDWHILE AGAIN or 

BEGIN. . .(test) WHILE. . .(test) ENDWHILE 
UNTIL 

with one ENDWHILE for each WHILE in the 
loop. 

The definition is 

: ENDWHILE 2 - ?COMP 2 7PAIRS HERE 
4 + OVER - SWAP ! ; IMMEDIATE. 

It causes WHILE to compile a branch to the 
word following AGAIN or UNTIL, and is directly 
analogous to ENDIF (THEN). It can be easily 
understood by comparing the definitions of 
WHILE and IF, and ENDWHILE and THEN. 

A similar ENDWHILE can be defined for use 
in the ASSEMBLER vocabulary. 

The ENDWHILE construction is awkward 
(poor English) but simple, and is worth using 
until something better Is decided on. 

Julian Hay den 

2001 Roosevelt Avenue 

Vancouver, WA 98660 
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FORTH STANDARDS CORNER 

Robert L. Smith 

The word WORD has caused implementers of 
the 79-Standard a certain degree of difficulty. 

The definition of WORD as it appears in the 
FORTH-79 Standard is as follows: 

WORD char — addr 181 

Receive characters from the input stream 
until the non-zero delimiting character is 
encountered or until the input stream is 
exhausted, ignoring leading delimiters. The 
characters are stored as a packed string 
with the character count In the first 
position. The actual delimiter encountered 
(i^ar or null) is stored at the end of the text 
but not included in the count. If the input 
stream was exhausted as word is called, then 
a zero length will result. The address of the 
begiming of this packed string is left on the 
stack. 

There are a number of problems with the 
defmiticMi as it stands. Later I will suggest a 
slightly modified definition which should clarify 

the apparent intent of the Standards Team, al- 
though some of the problems will remain for the 
present, 

1. The phrase "non-zero delimiting charac- 
ter" presumably means that char must 
not be the null character. An error 
condition should be specified if char is 
found to be zero. 

2. The character count is to be stored in 
the first character position of a packed 
string. That could mean that ^e 
character count could not exceed 127. 
Since a string holds a sequence of 3 bit 
bytes, the Clarification Committee of 
the Rochester Standards Conference 
felt that the term "character position" 
was a typographical error that should 
have been "byte position", thus allowing 
a string count up to 233 characters. 

3. Since the source string could be as long 
as a block (1Q24 bytes), the character 
count could exceed 235. This case 
should be specified as an error condi> 



tioR. The action to be taken on an error 
condition depends on the implementa- 
tion. A number of schemes have been 
proposed, but there are none that are 
completely satisfactory. Many people^ 
including this author, feel that any 
count should be allowed. 

4. The definition uses the phrase "actual 
delimiter encountered (char or null)". 1 
do not believe that the Standards Team 
meant to required implementations to 
use a null as a universal delimiter, 
although many undoiJbtedly will. The 
sequence in which the above-mentioned 
phrase appears probably means that if 
the end of the input stream is en- 
countered before the specified termi- 
nating character is seen, then a null 
should be appended at the end of the 
packed string instead of the specified 
terminating character, 

5. Note that in addition to being a termi- 
nating delimiter, char also specifies 
initial rfiaracters to be skipped. That 
property makes WORD very difficult to 
use in conjunction with string which 
may have a zero length. An example of 
a zero length string is the null comment 
( ). If one attempts to use WORD in a 
straightforward manner to enclose the 
command terminated by the right 
parenthesis* he will find that it and all 
succeeding text will be skipped! Since 
under the Standard, the use of WORD is 
about the only way that one has access 
to the contents of the text input buffer, 
this limitation appears to this writer to 
be unreasonable. 

I believe that the following definition of 

WORD meets the essential intent of the 
Standards Team, and clarifies the problems 
stated in (1-4). in order to not add to the 
confusion, I have put a new serial number on the 
definition. 



WORD char — addr 101 

Receive characters from the input stream 
according to the ctelimiter char and place 
the characters in a string beginning at 
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addr+1. The character count is placed in the 
byte position at adcb-. An error condition 
results if char is an ASCII null or if the 

count exceeds 255. Initial occurrences of 
char in the input stream are ignored. If char 
appears in the input stream as a terminating 
character, it is appended to the string but 
not included in the count. If the input 
stream is exhausted before char is en- 
countered as a terminating character, the 
terminating character null is appended 
instead of char. A zero length will result if 
the input stream is exhausted when WORD is 
called. 

The problem of the character count limita- 
tion could be considered in the future. One 
simple ^jproach would be to use a full word for 
the character count. Another would be to elim- 
inate the character count and always append a 
null at the end. The user could then do his own 
scanning. The problem of null length strings 
could be "defined" away by making null length 
strings illegal. I think that that is a poor 
solution. The real problem is that WORD is 
poorly factored. As usual in FORTH, the less a 
word does, the more useful it becomes. The 
process of scanning for initial delimiters should 
be separated from the process of scwtning for 
terminating delimiters. 



NEW PRODUCT 

ZB002 Software Development System under 
CP/M®or Cromemco CDOS, Includes cross 
compiler and a number of utilities. Available 
on 5^" or 8" disks. Pricej $4,000.00 

Inner Access Corp. 
517K Marine View 
Belmont, OA 94002 
(415) 591-8295 



"Starting FORTH" 
AvaUable NOWI 

$16.00 Paperback 
$20.00 Hardcover 

Mountain View Piress 
PC Box 4656 
Mt. View, OA 94040 
(415) 961-4103 



THE FDRlH-79 STANDARD-A TOOL BOX? 

George W. Shaw, n 

As a vendor of a version of the FORTH 
language, and a self-proclaimed priest of the 
rORTt-i religion (I carry a soap box in my back 
pocket and will mount upon it at a moments 
notice), I am very interested in the best 
standardization of the FORTH language possi- 
ble. There are many items in the '79 standard 
which need work. Many cannot, and maybe 
should not, be changed this time around, but 
will have to wait for subsequent standardization 
efforts. To this end, I am conducting interviews 
to compile as complete a list of problem areas 
and solutions as possible. I would like to thank 
all of the people who have spent time giving me 
the input, comments and ideas which are the 
inspiratiOTi for this article. 

Much discussion centers on the defining: 
"What is a 79 standard program?" Many of the 
questions are similar to "Can I xxx» and will it 
be standard?", or "My system has a zzz v/hich 
does more than the standard says. Is it stan- 
dard?". These are the wrong questions. 
Granted, many of these questions could be 
answered by more explanatory text within the 
standard. But, in general, the real question is 
"What does a standard mean?", or better "What 
is the FORTH-79 StandardT' 

The '79 standard very clearly defines Itself. 
But, unfortunately, it seems that many people 
skip reading the first page of the standard and 
branch right into the glossary. If one is to read 
the first page, one notices a section of great 
importance; 

1. PURPOSE 

The purpose of this FORTH 
standard is to allow transportability of 
standard FORTH programs In source 
form among standard FORTH systems. 
A standard program shall execute 
equivalently on all standard FORTH 
systems. 

This section very clearly states the standards 

purpose is "... to allow transportability of 
standard FORTH programs in source form..." 
Further, that the program "...shall execute 
equivalently..." The section previous to the 
above clarifies the extent: 
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D. FORWARD 

The computer language FORTH 

was created by Mr. Charles Moore, as 
an extensible, multi-level environment 
containing the elements of an operating 
system, a machine monitor, and facili- 
ties for program development and 
testing. 

States clearly of FORTH as "...containing 
elements of ..." the various environments. 
Thus, the standardized FORTH should be a 
language vs/hich contains only the elements 
necessary to allow the transportation and 
equivalent execution of programs betvi^een 
FORTH systems. This Is even further limited 
by the definition of transportability. 

transportability 

This term indicates that equivalent 
execution results wfhen a program is exe- 
cuted on other than system on which it 
was created. See 'equivalent execution*. 

Which Implies that a '79 standard system (in this 
case, a system which contains only the standard 
words) does not necessarily allow program 
creation (development). This is not to say that 
one could not define within the standard the 
additional tools necessary to develop pro- 
grams. Only that the set of standard words may 
not be sufficient for development. (The 
additional words necessary for development is 
definitely an area to be looked at for the next 
standard.) 

Considering the above definitions, I propose 
this answer to the title question of this 
article: The FORTH-79 Standard is to be a 
basic toot box upon which other devices can be 
built. From the definitions within the standard 
one should be able to build almost any other 
needed tool or af^Ucation. We do not know yet 
if this is the case. It is extremely unlikely that 
the initial effort would have encompassed all 
design possibilities. The '79 standard is a first 
effort ~a place to start from; a base from which 
we may begin to determine the minimum addi- 
tions necessary to allow all tools or applications 
to be built transportably. 

Yet, even with this understanding, it may be 
felt that the standard is incomplete. In a few 
cases this may definitely be true. A good 
example of this is in the text dealing with the 



vocabulary mechanism. The standard seems 
extremely limiting and impossible to deal 
with. But, the solution is simple. Do as you 
have always done in FORTH. If a structure is 
Inadequate for an application, define a struc- 
ture which is adequate. The standard itself, by 
content, forces development in those areas 
which have not yet been fully developed. It 
forces new ideas, better solutions, and, 
hopefully, a better standard next time around 
by its own proper usage. 

As for the two most asked questions 

mentioned earlier, read the standard carefully. 
Does it specifically or implicitly prohibit 
xxxing? If not, try to transport It to other 
systems. If you are still unsure, send the 
question to FIG, we'll work out a clarification 
and recommend it to the standards team. What 
if your system does more than zzz says? Can it 
be made to do only what zzz says by possibly 
not exercising options? If so, it is probably 
standard. Still not clear? Send in the 
questions. We need them to make a better 
FORTH-79 Standard document. 

There are areas of the tool box which may 
be cluttered by parameter testing or unnece- 
ssary words. Some areas may require better 
factoring. Much work has yet to do done. 
These areas need to be exposed. Write FIG 
about them. All input is greatly appreciated. I 
have found that each person sees different valid 
problems. Many are seen by all, but most 
people usually see at least one that has not been 
seen before; an application or solution which 
had not been considered. 

When considering the FORTH-79 Standard, 
treat it as a basic tool box. Additional tools are 
applications from the point of view of the stan- 
dard. Extend it as necessary. Can you add 
what you need by defining it only in terms of 
standard words? If not, what is the minimum 
necessary to allow you to do that. More 
definitions or more explanations? Experience is 
all that will tell. Send in your results, 

George W. Shaw, II 
Shaw Laboratories, Ltd. 
P. O. Box 303 
San Lorenzo, CA 9A580 
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Book Review: 

Utle: Starting FORTH 
Author: Lpo Brodie 
FORTH, Inc. 
Copyright; 1981 
Publisher: Prentice-Hall, Inc. 
Price: $19.95 (hardbound) 
$15.95 (softback) 
Availability: Mid September, 1981 
Review by: George W. Shaw II 

Shaw Laboratories, Ltd. 

In most books the useful information begins 
in chapter one, or later. Starting FORTH is an 

exception. Useful information starts in the 
Forward section of the book. 

The book is designed to be interactive. 
After only two pages of chapter one, you are 
typing at the terminal. It is seldom that a 
sentence will leave you thinking, "Now, what 
does that mean?" Analogies are used throug- 
hout. Any "buzz" words, or differences between 
systems, or phrases which might cause con- 
fusion are footnoted to explain in more detail. 
This presents extremely basic or nonessential 
ideas outside of the main text, allowing the 
book to be simple enough for the beginner, but 
not to become tiresome to the more knowledge- 
able. For example, in the sections of the book 
dealing with math, separate sections or foot- 
notes are presented to explain what integers are 
or what an absolute value is (for beginners). Or 
to give additional information about a faster 
algorithm than was used in an example in the 
main text (for experts). Where appropriate, 
quizzes or exercises are interspersed within the 
chapters to help with understanding the 
material presented. 

The book Is written for the current "close- 
to-79-STANDARD" version of polyFORTH with 
notations or footnotes to indicate and explain 
the differences from the standard. Throughout 
the book, tables and lists are used to summarize 
and clarify the information presented. The 
occasional tables of new words (in glossary 
form) are of great help. They prevent having to 
dig through the text for the words to perform 
the practice problems. At the end of each 
chapter is a complete glossary of the new 
words. Also, at the end of each chapter are 
problems, with the answers in the appedlcies. 



There are even a few surprise questions to 
lighten the air. 

Moving from the general to the specific, the 
value of this work becomes even more apparent 
in the following chapter by chapter review. 

The Introduction Is not just one introduction, 
but two: one for beginners (to computers) and 

one for proff^ssionals- The beginnner's section 
explains conceptually what computers and 
computer languages are, using an analogy (as 
will often be found) to simplify. the 
professional's section answers the usual 
skeptical questions of "What is" and "Where is" 
Forth with an impressive list of facts about the 
language and applications in which it has been 
used. 

Chapter one, "Fundamental Forth", presents 
the basic concepts of dictionary extensibility 
and problem definition immediately, so that 
after only two pages, you are typing at a 
terminal executing commands and defining 
words. 7>ie text steps the reader through the 
complete development of a program and then 
illustrates its execution with the previously 
mentioned cast. The operation of Wie stack is 
then illustrated, and the format of glossary 
entries explained. 

Chapter two, "How to Get Results", presents 
the basic four arithmitic operations, calculator 
and definition style, with conversions between 

infix and postfix notations. Practice problems 
and stack pictures are provided to ensure com- 
prehension. The next half of the chapter covers 
the basic single and double precision stack 
operations with excellent stack pictures and 
quizzes to help along the way. 

Chapter three, the "Editor (and Staff)", 
again looks st the dictionary, but in terms of 
redefinition and FORGETing of words. Forth's 
use of ttie disk is also described, along with 
Listing, LOADing, and the word "C' for 
comments. 

Chapter four, "Decisions, Decisions, . . .", 
illustrates the IF ELSE THEN structure of 
Forth; the various conditional tests, their uses 
and alternatives; and flags and how to manipu- 
late them. 
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Chapter five, "The Philosophy of Fixed 
Point", expands upon the basic four arithmetic 

operatiDna with some of the composite 2+, 
etc.) ar>d some miscellaneous operations* The 
operators few the return stack aire introduced 
with examples of their use in ordering 
parameters for formula calculations. A dis- 
cussion of benefits of floating or fixed point 
math is followed with instruction about scaling 
in fixed point to eliminate the need for floating 
point. Discussed alro are the uae of 32 bit 
intermediate operators and the use of rational 
approximations in fixed point. 

Ctiapter six, "Throw It For a Loop", dis- 
cusses the operation of the various types of 
loops in Forth. A nsw cast of characters 
illustrate the "how" of DO LOOPs, nesting 
loops, using JF €LSE THEN inside loops, etc. 
BEGIN UNTIL and BEGIN WHILE REPEAT are 
also introduced. 

Chapter seven, "A Number of Kinds of 
Numbers", is divided into two sections: for 
beginners and for everyone. The beginners 
section gives an excellent tutorial introducing 
the novice to computer numbOTS. This sectitwi 
describes in detail both signed and unsigned 
single and double length numbers. Also covered 
are arithmetic shifts, bit-wise operations, 
number bases and ASCII character representa- 
tion. The section for everyone explains Forth's 
handling of signed and unsigned single and 
double length numbers for input, formatted 
output and mathematical operations. The 
effect of BASE on I/O, some usage hints, and 
mixed operations are discussed. 

Chapter eight, "Variables, Constants, and 
Arrays", discusses the uses and operation of 
these structures. Both single and double length 
structures are introduced. Example problems 
are used to show various designs for byte and 
single length arrays. Factoring definitions is 
also discussed. 

Chapter nine, "Under the Hood", presents a 
very clear, detailed, explanation^ of the various 
types of execution and structiffes within a Forth 
system. Of the many things examined are: text 
interpretation, ticking ('), compiling, vectored 
execution, dictionary structure, colon definition 
execution, vocabularies, the Forth memory map 
and its pieces. Much of the detail applies to 



polyFORTH, but the theory is sufficiently 
geheral to apply to the operation and structure 
of most Forth systems. 

Chapter ten, "I/O and You", discusses string 

and text manipulation as they relate to disk and 
terminal I/O. Block buffer and terminal buffer 
access is discussed with notes for multi-user 

systems. String operators and string to nunrijer 

conversion are also covered. 

Chapter eleven, "Extending the Compiler: 
Defining Words anct Compiling Words", weans 

the reader from the friendly cast of characters 
as it shows the code behind the faces. All of 
the aspects of Forth compiler are discussed 
including: time periods, the various compilers 
inside Forth, DOES ^ words and immediate 
words. D-charts are introduced. 

Chapter twelve, : "Three Examples", 
presents three programming problems and their 
solutions as an example of good Forth style. 
Text manipulation is presented with a random 
paper generator; Data manipulation with a file 
system; and fixed point numbeir manipulation 
with a math problem which would seem to need 
floating point. 

Following diapter twelve are four appen- 
dices v/hich contain the answers to the 
problems, the features of polyFORTH not 
discussed in the text, the differences from the 

'79 Standard and a summary index of the Forth 
words presented in Starting Forth. 

On the whole, Starting Forth is very well 
organized and presented. On occasion a few 
topics seemed to appear out of nowhere, as the 
section on Factoring Definitions in the chapter 
about variables, constants, and arrays. But, 
these digressions only serve as short breaks 
from the subject at hand and do not detract 
from the organizaticMi of the material. The text 
is very complete and easily understood, I rate 
the book very highly for both the novice and 
intermediate Forth programmer. 
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THE FORTH ENGINE 

Oavid Winkel 

What can computer ardiitects do to make 
their lives interesting? 

It has been clear for some time that building 
conventional Von Neumann computers is useful 
but dull. This in spite of large vendors' 
advertising literture which breathlessly 
announces new architectural advances far their 
latest machines. Meyers* book^ has an 
entertaining discussion of the history of these 
"new" advmices. For example, virtual storage 
goes back to the Atlas system (U. Manchester, 
1959). 

How can we im pro ve per for m an c e ? It 
appears that there are two practical ways: 

a. Engineering - faster components, 
pipelines, caches, etc., applied to 
conventional architectures. 

b. Architectural - building fundamentally 
different computers. 

The engineering approach has been remark- 
ably successful as ^wn by Seymour Cray's 
products. These machines db an excellent job 

with Fortran, but conceal gaps that program- 
mers have adjusted to and, in fact, accept as 
theological necessities. For example, the soray 
is a fundamental concept of Fortran, yet is only 
indirectly supported in hardware. Subscripts 
going out of range is a common run time error 
but the hardware happily goes on with the 
wrong data pointed to by a bad subscript. 

The architectural approach would reverse 
the procedure. Build hardware to support a 
language. We can do this at several levels, the 
lowest being language-directed design where 
hardware features are added to support specific 
language features. An example would be 
Burroughs' concept of data descriptors to 
provide run time checking of subscript ranges. 
Another example would be a P-code machine. 
P-code is language-directed since it was 
proposed as an ideal machine for compiled 
Pascal. It would be less suited for FORTRAN 
for example. The general idea in language- 
directed design is to mirror important high- 
level language concepts in hardware. Semantic 
Gap is defined as the degree to which language 



features are not mirrored in hardware. Thus, 

the semantic gap for ALGOL running on a 

Burroughs B6500 would be small* for PL/1 
running on CDC machines quite large. 

If we reduce the semantic gap to zero, we 
have a direct execution machine where hard- 
ware mirrors all^ the constructs (both data and 
control) of the language. Good discussions and 
bibliographies are given in references 1 and 2. 

Now we have the maximum in speed and the 
minimum of generality* The computer now runs 

only one language. What that language should 
be is a central question. The SYMBOL com- 
puter was an early, truly heroic, system built by 
Fairchild to directly execute the Symbol 
language.^ This is a PL/l-like language with a 
great deal of power. System performance was 
spectacular and yet the entire exercise cannot 
be considered successful. A large part was due 
to language complexity which translated into 
hardware complexity. It was difficult to fix 
bugs and impossible to add features inadver- 
tently left out. 

What we need is a well-tested, simple 
language before we build a corresponding direct 
execution machine. FORTH is the obvious 
choice. 

The goal of this research is to build the 

world's fastest FORTH engine. This is a no- 
compromise effort to force the hardware to 
mirror the language. We did not start by saying 
it must be buiit with bit slices, or PLA's, or ... 
In fact, an early paper design was done with bit 
sUces and discarded because It was too slow. 

The measure of speed is clock cycles per 
instruction. Clock rate, in turn, is a function of 
technology, not architecture. The machine 
currently runs at 333 ns but could be easily 
speeded up by using ECL or Schottky logic and 
faster memories. 

The design cycle for a FORTH primitive 
proceeds as follows: 

a. Pick a primitive such as DO or LOOP. 
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b. Postulate hardware data paths, stacks, 
registers, etc^ that implement DO and 
mating primitives such as LOOP and 
+LOOP. 

C> Make sure this hardware supports 
hidden logical concepts— in this case, I, 
J, K— and violates no other FORTH 
concepts. 

d. Count clock cycles. 

e. Repeat b-d untii you can think of no 
more speedup possibilities. 

f. Make an engineering choice for imple- 
mentation. DO takes 2 clock cycles 
without overlap, 1 with. LOOP and 
+LOOP take 1 clock cycle. For the 
first machine, we use a 2-cycle DO and 
reserve the l~cycle version for later 
enchancements. As a byproduct of this 
implementation we can support loop 
nesting to a depth of 1024. 

This process is repeated for each FORTH 
primitive. Finally, this collection of indi- 
vidually optimized hardware must be forged 
into a coherent whole that makes engineering 
sense. The result* is not too surprising. There 
are data and return stacks plus separate stacks 
for loop control. Of course, the loop stacks are 
invisible to the programmer. An arithmetic 
unit operates from the data stack, etc. What is 
surprising is the mass of data paths required to 
support parallel operations such as 2SWAP in 
one clock cycle. The results are impressive. 
For the fig-FORTH primitives ail but 4 can be 
executed in one or two clock cycles with the 
exception of multiply and divide which take 1 
clock cycle per bit. The machine currently has 
16k X 16 main memory with Ik X 16 stacks both 
extendable by 4 X. I/O is done with a slave 
6809 with programmed access to the data stack 
and DMA access to main memory. Control is 
microprogrammed with a 2910 driving a Ik X 60 
bit v/ritesble control store. This follows Logic 
Engine philosophy so the user has very 
pleasant access to the micromemory for 
tailoring high-speed special purpose 
instructions. 



Results for randomly chosen instructions are 
given below. All comparisons are based on a 1 
MHz 6809 running fig-FORTH. The FORTH 
engine runs at 3 MHz. 

DUP 99 X faster SWAP 132 X faster 

p 101 X faster U* 96 X faster 

r 114 X faster ROT 624 X faster 

AND 126 X faster D0...LO0P 110 X faster 

(null body) 

As a rule of thumb the ^eedup is a factor of 
100. Why the 6809 (or any other computer) is so 
slow is an interesting question and will be 
treated in a more formal paper. 

We have received a number of inquiries 
about machine availability. Does anyone really 
need a machine this fast? It is obviously a large 
(200+ IC) machine in the minicomputer class 
and will cost more than a Z80. I would 
appreciate hearing from readers about this as 
well as memory and 1/0 requirements. 

David Winkel 
2625 Solar Drive #5 
Salt Uke City, UT 84117 
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THE FORTH INa UNE EDITOR 

5. H. Daniel 
System Development Corporation 
5tKI Macara Avenue 
Sunnyvale, CA 94086 

The upcoming publicatioii of Starting 
FORTH, which is destined to become the "bible" 
of FORTH neophytes everywhere, provides an 
opportunity to upgrade the existing fig-FORTH 
line editor at a very small cost in time and 
effort. 

There are at least two good reasons why this 
upgrade should bs dons. The first is siandrjrd- 
ization. A user of any version of fig-FORTH 
will be able to step up to p poly FORTH system 
and use the line editor. Conversely, FORTH, 
Inc. customers wlio try fig-FORTH wiU not have 
to learn to use a different editor. 

The second reason for adopting the 
poIyFORTH editor is its increased flexibility 

and ease of use. The current fig line editor uses 
only the PAD for storage of user inputs for 
searches, deletions, and replacements. The 
polyFORTH editor employs both a FIND buffer 
and an INSERT buffer, in addition to the PAD. 
This allows both of the extra buffers to be 
loaded, and the contents reused several times, 
without extra typing by the user. This makes 
commands like D (Delete) and R (Replace) 
especially useful. 

By taking a few hints from Starting FORTH, 
and combining them with the existing editor, I 
was able to write a line editor which is 
functionally identical to tiie polyFORTH editor, 
but which is in the public domain and can be 
used by anyone. 

SYSTEM REQUIREMENTS 

This editor should run on any fig-FORTH 
system, Including FORTH-79 Standard systems 
(if the changes mentioned in the section 
FORTH-79 Standard are made). The compiled 
lirw editor requires approximately 2K bytes of 
memory, plus room in the system for the PAD 
and the FIND and INSERT buffers. It operates 
within the confines of the default data and 
return stacks. 



A high level version of the word MATCH, 
used by the Une editor for searches. Is included 
for those who dc not already have a version 
written in a:isembly language. If you intend to 
use this version of MATCH, screens 216 and 217 
should be loaded prior to loading the rest of the 
line editor. Credit for this version of MATCH 
goes to Peter Midnight of Hayward. 

THE EDITOR COMMANDS 

The word 'text' following a command indi- 
cates that any text typed after the command 

v/ill be copipd to the text buffer used by that 
CO mm arid. The buffer contents will then be 
used when the command executes. If no text is 
typed by the user, the contents of that buffer 
Cleft over from the previous command or com- 
mands) will be used without modification in tlw 
execution of the command. 

X extract ( — ) 

Copies the current line Into the INSERT buffer, 
and removes it from the screen. All following 
lines are moved up, and line 15 is left blank. 

T Type ( n — ) 

Type line n from the current screen. Set the 
cursor to the start of the line. 

L List C - ) 

Like the FORTH word LIST, except that the 

current screen number is obtained from the 
variable SCR, rather than being typed in by the 
user. 

N Next ( - ) 

Increments the current screen number by one. 
This command is used just before the L com- 
mand, to allow the user to list the next 
sequential screen. 

B Back ( ~ ) 

Decrements the current screen number by one. 
This command is also used before the L com- 
mand, to allow listing of the previous sequential 
screen. 
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P Put C - ) 

P text 

Any following text will be copied into the 
INSERT buffer. The INSERT buffer will be 
copied into the current line, replacing its 
previous contents. If the text consists of one or 
more blanks, the current line will be erased. 

WIPE Wipe ( - ) 

Erases the current screen. Equivalent to the 
original CLEAR command, except that the user 
need not enter the screen number. 

COPY Copy ( from -2, to-1 — ) 

Copy one screen to another. 

F Find ( - ) 

Ftext 

Any following text is copied to the INSERT 
buffer. The contents of the INSERT buffer are 
compared to the contents of the current line. If 

a match is found, the line is displayed with the 
cursor positioned immediately after the end of 
the string searched for. The F command^ with 
no following text, is exactly the same as the 
previous editor command N. It no match is 
found, the requested string is echoed to the 
terminal and the error message "NONE" is 
output. 

E Erase C ~ ) 

Erases backwards from the cursor, according to 
the number of characters in the FIND buffer. 
This command should only be used immediately 
after the F command. 

D Delete C — ) 
D text 

Any following text is copied into the FIND 
buffer. The D command is a combination of the 
F and E commands. The string in the FIND 
buffer is matched against the contents of the 
current line, and if a match is found, the found 
string is deleted from the line. 

TILL Till ( — ) 

TILL text 

Any following text Is copied into the FIND 

buffer. Starting from the current cursor 
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position, TILL searches for a match with the 
contents of the FIND buffer. If a match is 
found, TILL deletes all the text on the line from 
the current cursor position up to any including 
the end of the matched text. 

S Search ( last 3creen#+l — ) 
S text 

Any following text is copied into the FIND 
buffer. Starting at the top of the current 
screen and continuing until the bottom of the 
screen immediately before the screen number 
on the top of the stack, S searches for a match 
to the contents of the FIND buffer. Whenever a 
match is found, the line containing the match 
will be typed out, along with the line number 
and screen number in which the match 
occurred. Because of the way FORTH handles 
loops, the number on the top of the stack must 
be one higher than the highest screen to be 
searched. 

I Insert C — ) 

I text 

Any following text will be copied into the 
INSERT buffer. The I command copies the 
contents of the INSERT buffer into the current 
line, starting at the current cursor position. 
Any text to the right of the cursor will be 
pushed to the right and will be pushed off the 
line and lost if the total length of the line 
exceeds 64 characters. 

U Under C ~ ) 
U text 

Any following text will be copied into the 
INSERT buffer. Spread the screen at the Hne 
immediately below the current line, leaving a 
blank line. All following lines are pushed 
down. Any text on line 15 will be lost. The 
contents of the INSERT buffer will be copied 
into the blank line, and that line will be made 
the current line. 

R Replace ( ~ ) 
R text 

Any following text is copied into the INSERT 
buffer. The R command operates as a 
combination of the E (Erase) and I (Insert) 
commands. Starting at the current cursor 
position, and working backwards towards the 
start of the line, text corresponding to the 
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length of the contents of the FIND buffer is 
deleted, and the contents of the INSERT buffer 
are inserted into the line. Since the contents of 
the FIND buffer deteimine how much text will 
be erased, the R command should only be used 
immediately following the F (Find) command. 

M 'Move (Block#, Lines? — ) 

Copies the current line into the INSERT buffer, 

then copies the INSERT buffer to the block, 
specified by Blockff, UNDER the line specified 
by LJNE#. The original block numb^ is 
restored, and the next linp: in the block becomes 
the current line. This allows sequential lines to 
be nnoved with a minimum of keystrokes. One 
unfortunate side-effect of this command is that 
to move something to line of another screen, 
you must first move it UNDER line 0, using the 
command xxx M, make screen xxx current, 
and then extract the old line 0, moving 
everything else up. 

t C - ) 

Used as a terminator for all commands allowing 
text input, such as P, F, R, etc. Allows more 
than one command to be entered on a single 
line, e.g., 

3 T P This is line 3t L (cr) 

Although useful, this feature does preclude the 
use of the " " as a character in any text to 
be put on a screen. 

GLOSSARY 

The following glossary addresses all the 
FORTH words in the line editor except the 
actual editing commands, which are discussed 
above. 

TEXT (deUmiter - ) 

Any following text in the input 
stream, up to but not including the 
delimiter, is moved to the PAD. The 
length of the input string is stored at 
PAD, with the actual string starting 
at PAD+1. In FORTH-79 Standard 
systems, if no text follows in the 
input stream, a length byte of will 
be stored. In non-Standard systems^ a 



length byte of 1 will be stored, but 
PAD+1 will contain a null to indicate 
the absence of text. 

(LINO (Une#, Screen# ~ Buffer Address,64) 

Using the line and screen numbers, 

computes the starting memory 
address of ttie line in the disk 
buffer. May not be necessary in 
FORTH-79 Standard systems, depend- 
ing upon implementation. Should 
already be (nresent in earlier 
implementations. 

LINE (Une# - Buffer Address) 

Ensures that the line number is within 
the legal range of the current screen, 
then uses (LINE) to set the starting 
address of the line in the disk buffer. 

WHERE (Offset, Block// -) 

Used when a compile time error 
occurs during loading. Converts the 
block number to a screen number, 
makes that screen current, and prints 
the line in which the load error 
occurred. Underneath the line in 
error, the cursor is printed to show 
the approximate location of the 
error. Enables the EDITOR vocabu- 
lary as it exists. Strictly speaking, 
this is not part of Uie polyFORTH 
editor, but it is a highly useful tool. 

#LOCATE(--Curaor offset, line#) 

Ltees the current cursor position to 
compute the line number which con- 
tains the cursor and the offset from 
the beginning of the line to the cur- 
rent cursor position. 

#LEAD (-~Line address, offset to cursor) 

Computes the beginning address of 
the current line in the disk buffer, 
and the offset from the start of the 
line to the current cursor position. 
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#LAG ( — cursor address, count after 

cursor) 

Computes the address of the cursor in 
the disk buffer and the count of 
characters remaining on the line 
after the cursor. 

-MOVE (from address, to Iine# — ) 

Moves a line within the disk buffer to 

the line specified, completely re- 
placing the previous contents of that 
line. 

?MOVE (destination buffer address — ) 

If any text has been entered into the 
PAD by TEXT, moves that text to the 
specified buffer. Used to load the 
FIND and INSERT buffers for 
searches, etc. If no text was in the 
no action is taken. 

^UNEjf (— current line number ) 

Uses the stored cursor location to 
compute the current line number. 



FINO-BUF 



( - ) 



Establishes the FIND buffer a fixed 
distance above the current addrera of 
the PAD. 



INSERT-BUF ( - ) 



Establishes the INSERT buffer a fixed 
distance above the FIND buffer. 



current line, pushing all lines below 
the current line dov/n, and leaving the 
current line blank. Any text on line 
15 is pushed off the screen and is 
lost. 



DISPLAY-CURSOR 



C - ) 



Displays the current line with the 
cursor in place. 

(R) C - ) 

Replaces the current line with the 
contents of the INSERT buffer. Used 
as the primitive operation for the P 
command. 

(TOP) C - ) 

Resets the stored cursor position to 
the top of the screen. 

ILINE ( - Flag) 

Scans the current line for an exact 
match with the contents of the FIND 
buffer. If a match is found, the 
stored cursor position is updated. 



(SEEK) ( ~ ) 



Starting at the current cursor posi- 
tion, searches the rest of the current 
screen for an exact match to the 
contents of the FIND buffer. If no 
match is found, the contents of the 
FIND buffer are typed and the error 
message "NONE" is output. 



CHOLD) (Line* - ) 



(DELETO 



(Count — ) 



Non-destructively copies the contents 
of the current line to the INSERT 

(KILL) (Une# - ) 

Replaces the specified line with a 
blank line. 

(SPREAD) ( ~ ) 

Spreads the screen, starting at the 



Starting at the current cursor posi- 
tion, text is deleted backwards 
(towards the beginning of the line), 
according to the count. The remain- 
ing text on the line is moved to the 
left and the end of the line is filled 
with blanks. 

(F) ( - ) 

Copies any following text to the 
FIND buffer and searches the 
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current screen for a match. Used 
as the primitive qieration fxnr the 
F and D commands. 

( - ) 



COUNTER 



BUMP 



Uses the length of the contents of 
the FIND buffer to set the count 
for (DELETE). Used as the 
primitive for the E and R 
commands. 

A variable used by the S command 
to count the number of lines 
output to the screen and printer. 

( - ) 



Increments the number of lines 
output and sends a page eject 
when 56 lines have been output. 
Used by the S command to handle 
pagination on the console and 
printer. 

FQRTH-79 STANDARD 



The following changes should be made to the 
load screens shown in order to bring the line 
editor into conformance wiWi the FORTH-79 
Standardi 

Screen Hne(s)Chanqe 

209 9,10 The FORTH word R 

should be chan^d to R@. 



214 

212 



202 



5,6,7 The FORTH word R 
should be changed to R@. 

5 The preceding the word 

VARIABLE should be de- 
leted, since variables are 
initialized to auto- 
matically under the 
FORTH-79 Standard. 

12 The word 1+ may be de- 
leted, since the FORTH- 
79 Standard specifies that 
a length byte of wilt be 
stored when WORD finds 
no text in the input 
stream. 



ERROR MESSAGES 

Only two em»r messages are output by the line 
editor: 

NONE Indicates that no match was found 

on the current screen 
corresponding to the contents of 
the FIND buffer. 

NOT ON CURRENT EDITING SCREEN 

Indicates that the tine number 

passed to the word LINE was 
outside the legal range of 0-15 
decimal. 



SCR It 200 
1 

' 2 FORTH DEFINITIONS ¥EK 
3 
4 

5 I TEXT C AC-cAi^C follouirM tmx't to PBLi > 

6 »EKE C/L 1+ SLtWS UC»S> 

7 HEFS. PfiD C^U 1+ CMOIK J 
B 

9 i LINE < r*laLl>j* SCRj I*auw addr*»«. oi lin» > 

11 IF .•• HOT OtfiREHT EDITING SCRB£H" QUIT THEH 

12 SCR « CLINE> DROP i 
IS 

14 — > 
15 
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SCR # 20t 

1 

2 UCiCfWJLSRV E&ITOR imECIFIfTE HEX 

4 s UhERE < pr int- acr-*«n * •rid of •ri-or- > 

5 DUP e^SCK LfUF SCR 1 . " SCR # " CiECIHIHL . 

« SWflP y»IS> CA. * ROT eUXX * CK CxL TVPE 

7 CR hERE CO - Sf-fKSS 5E EMIT 

8 CC0MPIi-E3 EDITOR QUIT t 
9 

EOITCR DEFIHITIOHS 

11 

12 ! *_OtFiTE < cur tcr- of f »«t,-2. lin»-l j 

13 R* « C^L 'tWCf 1 
14 

15 — > 







2iS2 


8 


C 


M.^. •LflG/ -MOOE. BUF-HOyE 91^0)7 SHt> 


t 

2 




#LEfiO < lin* *ddr-»**-2j offa*t to cursor-! > 


3 




«LOCnTE Lite Sl>l^ f 


4 
S 




«Lmij C cui-sor- ad^2* cowrvt af'tsr cur*o!'-l> 


e. 




»LEHtJ DUP >R + C- L ft> - i 


7 
8 


I 


-MOUE < mw* tV«ii aoi — 2i to lin»~l J 


9 




LIh4E OL CMOUE UPtftTE i 


IQ 
tl 


s 


BUF-MOUE < inou* t»>!t. tc. bufi er-l. if > 


12 




PAD 1+ C« 


13 




IF PfO SilfiP C/i. !♦ CMOUE 


14 




ELSE CROP 


15 




■n«H j — > 



SCR tt 2u3 

e ( >LIHEit. FIHC-BUF, IHSERl-BUF bimH/ SiV.1 > 

1 

2 

3 t >LINE# < conw^iH. curr-ant cursfcof posi-tion to lin»#> 

4 W.OCRTE SURP DROP 1 

5 

& 

7 : FIND-eUF buffet-' ueed far 3t\l »«arch*«. > 

e PAD se ■•■ t 

10 

11 : 1HSEP:T-&UF tiuffei" uMd for »11 in»»i~tioins > 

12 FJHD-EiUF 5Q + J 
15 

14 > 

15 

SCR 204 

a C CHOtO-* <KIU.-, CSPREflD-> X 816767 S*£i j 

1 

2 ! <HOLD> < nou* line-l tvvb blocK to irta«r-t Duffer- > 

3 LINE IMSERT-KJF 1+ DUP IH^RT^tF C! CfXWE I 

4 

5 5 <ml:- • -^iTAi ff line-i with blanKt, j 

6 LlNfcL C. L &Li=ll*,S UFC-rtTE J 
7 

S I K.^WSPDi < spreads uakina lin*ft blwil^ J 

9 M.IKE* DUP 1 - BE 

le DO I LIK 1 1+ -ftOM -1 *LOUf <KILL> t 
11 

12 : X < ctBl»t» .lin*» from bloch? p-ut in irvsert buffer> 

13 >LINEtt DUP <HOU» SF DUP ROT 

14 DO I 1-4- LIME I -nOUE LOOP <KILL> i 

15 — > 

SCR • 205 

8 f. DTS'LHV-CURSOR' T> L &l^?ro SHU J 
1 

2 

3 : plSPLflV-CURSOfr; < — > 

4 C!=J SPhCE #LeMj TVPt 5E EMiT 

5 «L^lG TYPE •LOCBTE . DROP ; 
6- 

? 

8 s T i tMM- Iin««-1 ) 

9 C^L « RH ! e DISPLAV-CURSOR t 

le 
It 

12 : L C li-tt, curr«r»t screen > 

13 SCR « LIST » 
14 

15 ~> 
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SCR « 2e£' 

e < H< B> <TOP-> SEEK-ERROR SieF&7 SHO > 

2 I N < select n»y.t t«<iuant.lAl sct^aen > 

7 1 SCR ■!■! 1 

4 

5 • B < s*l«ct previouf- Mtuarrtial >cr««n > 

6 -1 SCR *< t 
7 

S t <TOPJ < r*««t eurcor to te^ oT block > 

9 8 R« > I 

le 

11 s S^-ERROR < output arror mji if no »*tch > 

12 <TOP> FHO-BUF HERE C^L 1+ CMDIJE 

13 HERE COUNT TS-PE 

14 H(ME" QUIT i 

15 — > 



SCR 


• 


2!B? 


e 


< 


<ti-. P 


1 






2 






5 


1 


<:r> 


4 




>LINE# 


5 




INSERT-etP 


« 






7 






S 


t 


P 


9 




5E TEXT 


IS 




IHSERT-eUF 


11 




<R> 1 


12 






IS 






14 


— > 


15 







Bl^TB? SHD > 

< r«»l*c« current lioe witi^ int*rX tuTfmr > 
SUfV '^KHJE 1 

< followirifl tej<t in irisert buff&r and lir*> 



SCR ft 2B8 

e < UIPE, COPV^ lUIHE Siei71t. SHD J 

I 

2 

3 t WIPE < cl*ar the «urr«fvt *cr«en > 

4 ie» e DO I <KILL> LOOP } 
5 

6 » COPV < edpv »cr««n-2 ocvto »ct-««n-l > 

7 B^SCR • OFFSET « + SUflP K'SCR * a^SCR 

e OJER + SU«F 

9 DO DUP FORTH I iLOCK 2 - ! If UPDAHTE I.O0P 

le CROP FLUSH t 
11 

12 t ILIHE C wan curr«nt Itn* tor Match with FIND bufftr > 

13 C wtl»te cur-MM-i ratum boolean ) 

14 mjc FiND-euF aium- mrcK rii -4-< i 

15 — > 



SCR « 209 

C <£EEK-. C DELETE- S10715 SHD > 

1 

2 i CSeEt^> ( FIND buf-Ter natcn ouer- full tcr-een, else err>or> 

3 SEGIN 3FF R» « < 

4 IF SEEK-BiRaR 1>CN 

5 ILIHE 

6 UNTIL t 
7 

8 I <DELETE) < b«cKuwrd» at eursor bv count..~l > 

9 Xt *LH> 4- R - < uue blank fill location > 

10 *LFiG R nlWS R* +! C bach uf curso" > 

11 «LEfiD + SUFIP CflOUe 

12 R> BLANKS UPDATE f < fill froM end Of t*Xt > 

13 

14 — > 
IS 
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SCR # 210 

( iF', F, CE«. E 81Q71S SW ) 

1 

2 I CP) < rind oe«wiiw* at rellewina l^ct > 

3 TEXT 

4 FtND-«UF euF-nguE 

5 <SEBC> < 

« 

7 1 F < find wtd dl«»l«M follawirM t«Kt > 

t <P> OUPUW-CURSOR > 

» 

ta 1 <S> < mnmm b»rtwTrti. tram eur«ar> > 

li FIHD-n/F M tCCLETC) I 

U 

15 t E < at^M* and A«»law lln* > 

14 (£3 MSPLM^^WSCIR J 

15 — > 



SCR # 21 1 

a < D, TIUL Siens SHD ) 

1 

2 

5)0 < rtnd* d»t9t«< «td dl«rl«M followina tt^ti 

4 <F> K I 

9 
6 

7 I TILU < d»l«t* Trvm «ur«ar to iwct and > 

5 <tLEM> Se TEXT 
9 FtHD~eUF BUF-MOUE 

10 ILtt-E 8- IF SEEK-ERROR TH04 

11 mjsm * suAp - cpeuETE> 

12 DIVLAV-CURSOR t 

13 

14 — > 
15 



SCR • 212 

e < COUNTER' BUMP •leW SHD > 

1 

2 

3 unRIfSLS COUNTER 
4 

. 9 

'« • BUMP < th* ltn» nuMbar- and htncll* PMina > 

7 1 COUKTER COUKTER « 

8 58 > IF e CQUKTER t 

9 CR CR OF MESSAGE 0C EMIT tMSi J 
10 

It — > 

12 

15 

14 

IS 



SCR • 213 



a 


c s 




3ia719 SHO 


1 

2 




< fVoM eurr*nt, to »cr««n-l 


for >triri« > 


5 




•C BUT S TEXT COWTER ! 




4 




piie-auF auF-HpuE 




5 




SCR « OUF >R DO I SCR ! 




« 




<Tqp> 




7 




BEGIH 




8 




ILINE IF DISPLflV-CURSOR SCR ? BUM 




9 




5FF RB « < 




10 




UHTIU 




11 




USP R> SCR • J 




12 








13 


— > 






14 








15 
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t! ■'. I. U Siu715 sHD > 

lit < irtswrt. text uiU-iin lin« > 

2 3E TEXT ( lomd ifv»»i~t buf f •f' With t*K^> 

3 INSERT-EUF BUF-MOUE < if ar,y > 

4 IH£ERT.-BUF COUHT iLAG ROT MIH >R 

5 R R* ♦! C buKiP cur sor > 

6 R ~ >P. < chat- actfi to saoe j 

7 DOP HSRil R CMOUE < from iild c-ur-^or to HERE > 

8 MtRE #LefiD + R> CMCJtffi < HERE to cursor location > 

9 R> CMWE UPL'ftTE C PflD to old cursor- > 
16 OISPLHV-CUftSOR i ( loc*: at new line > 
11 

12 : U < lns«t^ follouiri/d t»xt urider curr^rit 

IS Rtt +• <SPREH» P « 

14 

15 — > 



SCR « 215 

e < R. M 810715 SMD 

I 

2 ■ R ( replace foird text with insert buffer > 

Z (Oil 

4 

5 i M 'J Grtc'^fr f r oKi t;Ljrt"*nt liri& or* current screen 

(6 SCft * >k < to s.i:r»tr.-2, UMDEF: iirw-l ) 

7 R*t « >ft < aafje or-ijilnal «creen and cur-ser location 

8 >LIt«# <HOLD> < toove current line insert buffer > 
aj**' SCR ! set ri«*j *cre«n K > 

le 1+ C'-L * rii^ • i te->A. it stored UMLjER r fr=nj^=l^d j ine > 

11 <SPREftt'> CS,> < s.t«re ins-art buf f er in new aci-etn > 

12 R> * i < Mt ortainal eui~»or Ur n*xt line > 
15 (!> SCR ! J < re«tar^ ori*inal screen > 

14 

IS FORTH OEFtHITIONS OECIMH. 



SCR « 216 

8 C 81£r,?-lS SHD > 

1 FORTH DEFINITIONS DECIMAL 

2 t a^ROP DROP DRCP f < d-op^ • dPMble nunber > 

5 

4 I 2S)MP < 2net double nuMber to TOS > 

5 ROT >R ROT R> * 
& 

7 I 20UF OUER WER 1 < dup • double number > 
8 

9 I CM(4TCH3 < addr<-3. «ddtr-2. count-1 f 1m > 
18 -DUP IF GUER * SUflP 

11 DO 

12 DUP C'S I C'i - 

13 IF e= LEftUE ELSE 1 + THEM 

14 LJOOP 

15 ELSE OFeBP 8- THEM t — > 



SCR « 217 

9 < £e1£) /1S SHD > 

1 

2 t unrCK < euraor adr — 4j [jyt&s^ lef t-3* »t>*in!i adi — 2 1 

3 < s-trina count-1 — f laa-2j cur»o*' cpf ftet-i j 

4 >« >R 2DUP R> B> 2SUIflP OUEft + SUftP 

5 C caddr-6> bleft-5< «sddr-4. *len-3< caddr^lef t-2j cacidt-l> 

6 DO 

7 2DUP I SURP <nm-CH> 
S IF 

9 >(* 2DR0P R; - I SURP - SUHf- 6 S LEftUfe 

< cadcfr^A bleftj Xaddr-, ;tler, Ok Hit ofi&«t. e :) 

11 T»EN 

12 LOOP 

13 2DR0P < caddr-2. bl*ft-l OR BH-i, off««t-l > 

14 SUflP ^ SUHP J 
IS 
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RBCURSON AMD THE ACKERMANN 
FUNCTION 

Joel V. PetersOTi 

Recursion involves the calling of a program 
by itself. An example of where recursion might 
be used is In the parenthesis handler of an 
algebraic string parser. Every time the parser 
encounters a left parenthesis, it calls itself; 
every time the parser encounters a right 
parenthesis, it completes 8 call of itself- 
Recursion is somewhat difficult to explain and 
very difficult to use properly. However, the 
implementation of recursion in any language 
can be tested with a program called the 
Ackermann Function. This is a recursive 
function of two variables which is almost 
impossible to explain. The following is an 
implementation of the function in PASCAL. 

VAR K,0: INTEGER} CALLCNTjINTEGER; 

FUNCTION FCK.J: INTEGER): INTEGER? 
BEGIN 

CALLCNT :=CALLCNT+1; 
IF K=0 THEN 

F !=J+1 

ELSE 

IF J=0 THEN 

F := F(K-1,1) 
ELSE 

F :=F(K-1,F(K,J-1»; 
END(*ACKERMANN FUNCTION*); 

Recursive programming as illustrated in the 
PASCAL example is not possible in FORTH. A 
program can not invoke itself simply by using 
its own name while defining that word. 
However, recrursion is not difficult at all to 
achieve: 

(no- FORTH) 

: MYSELF LATEST PFA CFA , ; 
IMMEDIATE 

(NIC-forth) 

I MYSELF LAST @ @ 2 + , ; IMMEDIATE 

MYSELF simply places the address of the 
code field of the word being defined into its 
own definition. Thus, whenever the program 
needs to invoke itself, the word MYSELF should 
be used instead. The Ackermann Function now 



becomes: 

(FIG-FORTH) 
VARIABLE CALLCNT 
: ACKERMANN ( I J - F ) 
1 CALLCNT +! 

o=r 

SWAP DROP 1+ 
ELSE 
DUP 
0= IF 

DROP 1- 1 MYSELF 
ROT ROT DROP 1- SWAP MYSELF 
THEN 
THEN; 

CNIC-forth) 

VARIABLE CALLCNT 

J ACKERMANN ( I J - F ) 
1 CALLCNT +! OVER 
THEN 
DUP 
THEN 

2DUP 1- MYSELF 
-ROT DROP 1- SWAP MYSELF 
ELSE 

DROP 1- 1 MYSELF 
ENDIF 
ELSE 

SWAPDROP 1+ 
ENDIF ; 

For comparison, the Ackermann Function 
was tested on the Nicolet 1280 20-bit 
processor in both (compiled) PASCAL and 
NIC-forth. The K=5, 3=5 function took 8 
seconds in (compiled) PASCAL and 12 
seconds in NIC-forth. (As an aside, the 
addition of a simple hardware mod to the 
1280 processor to speed up NEXT in NIC- 
forth reduced this to 9 seconds! Who says 
inline coding is so much faster than indirect 
threaded code!) 

When attempting to try the Ackermann 
Function, one must allocate lots of room for 
both the parameter stack and the return 
stack. Every time the function is called, 
there must be two elements on the 
parameter stack, thus the parameter stack 
will fill up approximately twice as fast as 
the return stack. The K=5, 3=6 function 
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requires over ItMMI elements on the 

parameter stack and over 500 elements on 
the return stack at its deepest point. When 
the K=A, J-1 function was tried, the pro- 
gram finally crashed after five hours with 
the return stack containing over 5000 
elements'! 

The results of the simpler Ackermann 

Functions are given betow, F is the value 
returned by the function. CALLCNT is the 
count of how many times the program called 
itself. MAXDFPTH is the maximum depth 

attained by the return stack. 



K 


3 


F 


CALLCNT 


MAXOEPTH 








1 


1 







1 


2 


1 




1 





2 


2 




1 


1 


3 


4 


3 


1 


2 


4 


6 




2 





3 


5 




2 


1 


5 


14 




2 


2 


7 


27 


8 


2 


3 


9 


44 


10 


2 


128 


259 


33669 




3 





5 


15 




3 


1 


13 


106 




3 


2 


29 


541 




3 


3 


61 


2432 


63 


3 


4 


125 


10307 


127 


3 


5 


253 


42438 


255 


3 


6 


509 


172233 


511 


4 





13 


107 


16 


4 


1 


77 


?? 


?? 



(NlC-forth is the impiementation of FORTH on 
the NICOLET INSTRUMENT CORPORATION 
1180/1280 series computers. This computer is a 
20-bit minicomputer with a 19-bit address 
space.) 

Joel V. Peterson 

Nicolet Instrument Corp. 
5225 Verona Road 
Madison, Wise. 53711 
(608) 271-3333 

(Ed, - A great article, but watch out. Most 
figFORTH implementations have insufficient 
stack space to execute this fimcUon. Programs 
should be reviewed for compatibility.) 



REVIEW 

A Brief Review of the Manuals 
for the PET/CBM fuIlFORTH+ Vl.3/4 

by Jim Berkey 

Complete system is available from IDPC 
Co., Box 11594, Philadelphia, PA 11916 for $65 

(plus shipping?). Includes about 70 pages of 
documentation and a 5i" diskette (not re- 
viewed). 

IDPC's fuIiFORTH+ is noted to have taken a 
person-year to be developed by an experienced 
programming staff. I give them a triple E for 
effort, but the product is, at best, rough. 

fullFORTH+ is described as "a complete 
implementation of the FORTH language, as 
defined by the FORTH Interest Group." If this 
is true of the disk, then there are glaring 
technical errors in the glossary, whose defi- 
nitions deviate substantially from the FIG 
manual. One example from -*-LOOP : "If the 
countOT and limit values are equal, either 
before or after adding the increment, the DO 
loop is exited ..." If you take this literally, the 
counter (read "index") is compared to the limit 
twice—ance before and once after the incre- 
ment—and exit can never occur on greater- 
than, as it does in the FIG model. 

On the plus side, the package includes 6502 
assembler, screen editor (not PEPs), printer 
support, and floating point routines. These are 
nice to have, but from the samples of use 
shown, I suspect the presence of endless small 
inconveniences. To be fair, endless small 
inconveniences are a built-in feature of C8M 
disk systems which fullFORTH+ has not 
corrected. 

I can't recommend fulIFORTH+ for any but 
the desperate, because of two central prob- 
lems: (1) the msmual reveals a mangled view of 
the FIG model, and (2) fullFORTH+ was 
probably not implemented OTiginally for the 
PET/CBM. 
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FORtH INC NEWS 

BETTER SUPPORT PROMISED THROUGH 
FORTH, INC. AND TECHNOLOGY 
INDUSTRIES MERGER 

FORTH, fric. and Technology Industries, Inc. 
of Santa Clara, CA^ have announced a 
merger. This means that FORTH, Inc. will 
become a wholly owned subsidiary of 
Technology, and present shareholders of 
FORTH will become shareholders of 
Technology. 

Technology Industries is a new company 
founded in February 1981 by John Peers. Peers 
is best known as founder and former chairman 
of Logical Machines Corp. of Sunnyvale, CA. 
This very successful company manufactures and 
sells business computers that feature a 
"programmer less" language called Adam, 
designed by Peers. 

"The principle change that everyone will 
notice," said FORTH, Inc.% president, Elizabeth 
Rather, "is that we'll be doing a lot mare of 
what we do best— selling and supporting high 
quality professional FORTH systems and 
applications— and doing it even better. We're 
expanding our staff and investing heavily in 
equipment training." 

FORTH, Inc. will operate with its individual 

identity, retaining the same name and operating 
structure. Technology Industries will be the 
"parent" of several other new companies as 
well. Each will specialize in hardware designed 
around and featuring FORTH. "Membership in 
this group will provide us with the opportunity 
to do ^me things Pve wanted to do for years," 
said Chuck Moore. *Tm extremely excited 
about these plans." 

EXPANSION CONTINUES 

FORTH, Inc.'s growth in recent months has 
included two significant additions to 
management. 

Joseph "Skip" Reymann, formerly with 
GOULD NAVCOM of O Monte, California, has 
joined FORTH, Inc. as vice president of opera- 
tions, Reymann has extensive experience in 
both the technical and business aspects of 



program management. He has degrees in 
physics, finance, and corporate and contract 
law. 

Robert E. Smith, Jr. is FORTH, Inc.'s new 
vice president of sales and marketing. Smith 
has ovBF ten years of experience marketing 
application software for minicomputers. He has 

already tripled the size of the marketing 
department and plans to triple it again within 
eighteen months. 

Other important additions to the staff 
include two people in the accounting depart- 
ment and three sales and marketing representa- 
tives. The products department has been 
reorganized with Leo Brodie, author of Starting 
FORTH, acting as manager. The publications 
department has grown by two, and three general 
support staff members have come on board. 

RECENT APPUCATIONS 

FORTH, Inc. recently signed a contract with 
International Business Services, Inc. in 

Washington, D.C., to supply hardware and soft- 
ware to the United States Forest Service. 

FORTH, Inc. will provide the hardware and 
update and enhance the software for a high- 
resolution map analyzer system. The system 
will work with digitized data from existing 
contour maps in raster format. 

The raster-scanned maps will be displayed 
on a high resolution (1024 x 1024) image 
system. A PDP-11/44 is then used to follow a 
given contour line and convert it to a string of 
vectors. Operator assistance is required in 
selecting a contour line, labeling, handling 
breaks in data, and making corrections from the 
original map. Operator input is via a track ball 
interface and alpha-numeric CRT. 

Dick Listen of USFS has usnd FORTH for 
several years developing a prototype version of 
the system using miniFORTH on a PDP 11/05. 
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MARKETING COLUMN 



Q. Pve written several programs that all my 

friends think are Bxcetlent; what is the best 
way to market them? -M.L.j New Mexico 

A. There is no universally "best" way to market 
anything, and that includes computer 
programs. Generally speaking, however, 
planning is your best ally. Since you have 
already received some feedback (and I 
assume you are certain that it is valid and 
not just your friends being politely sup- 
portive), it makes sense that persons that 
closely match the profile of your friends in 
terms of need, occupation, income, etc. 
would be your best prospects. Simply put, 
marketing under these circumstances will 
consist of finding a way tu communicate 
effectively md cost effectively with this 
target group. 

Q. I've run a number of ads for software I have 
developed and while I have sold some, I just 
don't seem to make any real money for the 
time I am putting in—what am I doing 
wrong?— R.S., Sandusky, Ohio 

A. Your problem points up many areas that do 
not occur to the amateur entrepreneur. In 
the interests of brevity, I will touch on a 
few of the more significant as being instruc- 
tive to our readers. 

» PRODUCT~in this area you may be pro- 
moting a product that serves no real need 
or is competing with an already estab- 
Usted vendor. 

* PRICE" your price may be too high, 
cau»ng your potential customers to seek 
other sources or do without; or, more 
commonly, your price may be too low, 
causing you to perform excessive labor in 
selling and servicing your accounts for the 
amount you are charging. 

• MEDIA~you may be advertising or selling 
to the wrong audience. If you have failed 
to research your market and are running 
ads based on who's cheapest as opposed to 
who's reading (prospect profile), you are 
unlikely to achieve any realistic sales. 



Remember your media should be 

purchased on the basis of cost per pros- 
pect, not cost per 1,000. 

* MESSAGE— you may be saying the right 
thing to the right people, but in the wrong 
way. Part of your test marketing sixjuld 
be to give your advertising and sales copy 
to a rank amateur and see if what they 
think you are saying is the same thing you 
think you are saying. 

The above itst is by no means all-inclusive, 
but these are the areas you should start 
looking into first. 

Q. Is there any way of selling my programs 
other Wian by buyir^ ads, etc.?— B.C., 
Walnut Creek, CA 

A. Yes. One of the most common ways is to 
have your software merchandised through 
any number of firms that specialize in this 
field. Basically the way they operate is to 
contract with your for ownership of your 
software and pay you a royalty on sales- 
much like an author receives from a book 
publisher. Naturally, the royalty is nowhere 
near the amount you would receive if you 
sold your software directly to the consumer 
yourself; but considering that you have no 
risk and your time is free to develop 
additional products which in turn can be 
sold, the reduced percentage is still often 
the best way to go. The point is that it isn't 
how large a percentage you receive that is 
important— but how much money you make. 

Questions of general interest regarding the 
marketing of software will be answered in each 
edition in this column. Because of time 
limitations, it will not be possible to provide 
private answers either by phone or maU. In the 
interests of personal privacy, questioners will 
be identified by initials only. Questions ^ould 
be addressed to: 

MARKETING COLUMN 

Editor, FORTH DIMENSIONS 

PO Box 1105 

San Carlos, CA 94070 
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HELP WANTED 



EDUCATIONAL STAFF ASSISTANT 



FORTH PROGRAMMERS 

Openings at All Levels 
At FORTH, Inc. 

Programmers experienced with mini/micro 
computers and peripherals to produce new 
poly FORTH systems and scientific/industrial 
applications. Degree in science or engineering 
and knowledge of FORTH essential. 

PRCXJUCT SUPPORT PROGRAMMER 

DUTIES: Responsible for maintaining existing 
list of software products, including polyFOKTH 
Operating System and Programming Language, 
file management options, math options and 
utilities and their documentation; and providing 
technical si^port to customers. 

Requirements include: 

Good familiarity with FORTH— preferably 
through one complete target-compiled 
application. Assembler level familiarity 
preferred with the 8080, PDP/LSI-li, 8086, 
M6800, CDP1802, NOVA, IBM Series I, 
TI990. Communication skills are essential. 



PROJECT MANAGER 

Project manager to supervise applications and 

special systems programming projects: writing 
proposals, setting technical specifications, 
customer liaison, hands-on programming, and 
supervisi(»i of senior programmers. 

SENIOR INSTRUCTOR 

Experienced in course writing and development, 
technical education in computer software, hard- 
ware, and related subjects, including FORTH 
programming. Responsibilities include mar- 
keting seminar support and instructing in-house 
polyFORTH courses. 



Experienced in dealing with public, sales and 
marketing, and some programming. Duties will 
include assisting education department manager 
with overflow administrative tasks, active 
participation in FORTH, Inc. user group. 



3R, INSTRUCTOR 

Experienced in public speaking or educational 
instruction, programming on various processors 
"high-level languages and assembler. Micro- 
processor and FORTH programming background 
valuable. 

CONTACT: 

Pat Jones 
FORTH, Inc. 

2309 Pacific Coast Highway 
Hermosa Beach, CA 90254 
(213) 372-8493 



CONSULTANT WANTED 

We are designing a heat pump controller 
system, which is based on the National Semi- 
conductor "COPff' Microcontroller. It is a 4 bit 
calculator chip, with 2K of ROM and 128 
nibbles of RAM. 

We need a consultant who can: 

1. Advise whether or not Forth csn be put 
on the COPS 

2. Estimate the program size, once 
compiled 

3. Write software which would allow me to 
write and debug code on a TRS-80, 
Model I, and then cross compile it to 
the COPS. 

For information call: 

THE COLFMAN COMPANY, INC. 

Scott Farley 

Design Project Manager 

(316) 832-6545 
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NEW PRODUCTS 
FORTH by Timln Engineering, Release 3 

Release 3 of FORTH by Timln Engineering is 

a complete software development system. It is 
interactive (conversationai) in nature. The 
FORTH system incorporates g command proces- 
sor, compiler, editor and assembler, all memory 
resittent. The principal benefits are a reduction 
in software development time and a reduction 
in memory size for large applications. The 
principal application area has been machine and 
process control. The language is suitable for all 
applications except scientific mathematics. 
tViIs prodiKit is based on the well-known FIG 
FORTH but with numerous enhancements, 
including: 

- visual (screen) editor 

- array handling (implemented in machine 
code) 

- very fast disk I/O 

- configurable for different memory size 

- creates turn-key applications 

- CP/M system calls and file handling 

Release 3 of Timin FORTH will run on Z- 
80/8080/8085 hardware systems with CP/M or 
CDOS. Minimum memory size is 28K. The 
price for Release 3 of Timin FORTH is $235 (if 
other than 8" standard disk, add $15). To order 
Release 3 of Timin FORTH, write Timln 
Engineering Company, 9575 Genesee Avenue, 
Suite E-2, San Diego, OA 92121, or caU (714) 
455-9008. 

HDDS FORTH 

- Vendor: Essex Computer Science 

- Address: 1827 St. Anthony Ave., St. Paul, 
MN 551D4 

- Telephone: (612) 645-3345 

- Contact! Rick Smith 

- Product Name: Essex HDDS FIG-Forth 

- Description: 

Essex HDOS RG-Forth is an inexpensive 
version of FIG-Forth for 1-teath 



H89/Zenith ZS9 users with the HDOS 
operating system. It is a version of 8080 
FIG-Forth Version custcmized for 

HDOS and the H/Z89. Disk I/O takes 
place via a standard HDOS disk file. In 
addition, the FTG-Forth source listings are 
provided and may be modified and re- 
assembled on a single-disk HDOS sytem. 

- Extras: None. 

- Target machines: hteath H89 and Zenith 
Z89. Heath H8 users may also use the 
system if they modify the console I/O 
routines. 

- Memory requirements: 32K of RAM 

- Number of documentation pages: 140 

- Documentation description: 

Documentation consists of release notes, 
a copy of the FIG-Forth Installation 
Guide, and a copy of the official 8080 
FIG-Forth version 1.1 source listing. The 
manuals provide the information 
necessary to install and modify the Forth 
system. 

- Essex does not offer the manuals 
separately. They may be purchased 
separately through the Forth Interest 
Group. 

- We will reduce the price to $25.00 for 
persons already owning copies of both FIG 
documents. 

- Form of Product: 5" HDOS diskette, 
including source, object, and release note 
files. 

- Shipments to date: about 4 

- Price: $45.00, or $25.00 for those who 
already own the FIG documentation. 

- Includes: U. S. postage, local tax. 

- Warranties and support: 30 day free 
replacement of defective media. We are 
interested in fixing bugs that crop up but 
do not guarantee that bugs will get fixed. 
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- Order turnaround time: 3-4 weeks. 

Order from: 

Essex Computer Science 
Richard E. Smith 
1827 St. Anthony Avenue 
St. Paul, MN 55104 
(612) 645-5345. 



AN 1802 FIG FORTH 

Version 1-RCA CDOS 
Load under RCA CCKDS 
Disc with source and object files for 

RCA CDP18S008 
CDPieSOO? 

CDP18S005 with CDOS upgrade 
A minimum of 8K from address is required 

Version 2--RCA unit-track 
Load under RCA unit-tracl< 
Disc with source and object files for 
RCA CDP18S008 
CDP18S007 

CDP18S005 with UART card 
A minimum of 8K from address is required 

Version 3— object and FORTH screens 
Load under RCA unit-track 
then LOAD FORTH screens 

Version 3 is suggested unless the user wants 

to manipulate the 1802 source code. This 
version will be continually updated with 
program materiaL 

The discs are $50 each (Calif, res add 6 

percenf. ssiss tax) 

Order from: CMOSOFT, P. O. Box 44037, 
Sylmar, CA 91342 



AIM-FORTH 'HACKER'S SYSTEM" 

I finally got my fig-FORTH 65 running on 
my AIM-65 at work and I would like to offer it 

to other hackers like myself. This FORTH 
system runs on AIM -65 with the DAIN DISK 
SYSTEM and uses an external terminal. 



The software is on 2 disks. One contains the 

complete source and object. The other contains 
Editor, Screens, Error Messages and other bits 
of FORTH code of my creation done while I 
started using FORTH. 

I will sifliply my AIM-FORTH "Hacker's 
System" to anyone for $25.00. THIS IS NOT 
FOR BEGINHMERS! THUS IS NOT A COM- 
MERCIAL PRODUCT! I am interested in con- 
tacting other FORTH hackers in my area and 
would like to possibly make some noise with 
them or start a phone line software interchange 
of techniques using MODEMS. I welcome any 
letters or input on this idea. 

Eric Johansson 
55 A Richardson St. 
Billerica, MA 01821 
(617) 667-0137 (home) 
(617) 899-2719 x 224 (work) 



FORTH MAILING LIST FOR APPLE 

Allows users to maintain 1,000 entries per 
floppy. Functions include adding, deleting, and 
modifying entries. The mount option allows 
mounting any number of mailing list floppys. 
Labels can be generated in 1,2,3, or 4 across 
formats with user optional selection criteria. 

This application package includes: 16 sector 

boot disk for the Apple; Source code for system 
and a bonus of one mailing list floppy with name 
addresses and phone numbers of over 100 
FORTH users. 

Price is $45.00 from: 

Elmer W. Fittery 

INTERNATIONAL COMPUTERS 

110 McGregor Avenue 

Mt. ArUngton, NJ 07856 

(201) 663-1580 (call after 6:00 pm) 



FIG CONVENnON COMING - NOV. 28 
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FORTH CLASSES 

NEW CLASS 
BY KIM HARRIS & HENRY LAXEN 



and October 5-9 at FORTH, Inc. An advanced 
course will run October 12-16. Contact Kris 
Cramer for detaUs. FORTH, Inc., 2309 Pacific 
Coast Highway, Hermosa Beach, CA TO254, 
(213) 372-8493. 



FORTH, PRINCiPLFS AND PRACTICES 

This class is intended to teach the student 
how to write programs in FORTH. It is a "how 
to" class and not a "why" workshop. Thn class 
will meet on each Monday in October from 6:30 
to 9:30 at Berkeley Computer, 1569 Solano 
Avenue > Berkeley. The phone number there is 
526-5600. The topics to be covered are: 

The Language 
Input Output Structure 
^ing Handling 
Votiabularies 
Defirwig Worcte 

This is an ambitious schedule, and depending 
on the level of the students, more or less will be 
covered. Experience with other computer lan- 
guages would be helpful, though it is not 
required. There will be homework exercises, 
and machines will be available for students' 
use. For more information, contact Henry 
Laxen at (415) 525-8582. 



MORE FDRTH CLASSES 

Intensive 5-day FORTH workshops are being 
offered at INNER ACCESS CORPORATION. 
These workshops provide an introduction to the 
FORTH programming language sufficient to 
design and debug programs to solve real 
problems. These workshops also serve to 
enhance on©% understanding of the FORTH 
tools necessary for complex applications. 

Workshop Dates Time Cost 

Sept. 21-25 9-4:30 $295 

Oct. 19-23 
Nov. 16-20 

To obtain more information on these work- 
shops, call Inner Access (415) 591-8295 in 
Belmont (home of Marine World) in the San 
Francisco Bay Area. 



SEMINARS, WORKSHOPS, CLASSES 
. FROM FORTH, INC. 



Location 

Los Angeles 
San Diego 



Seminar 

October 15 
October 22 



Workshop 

October 16 
October 23 



AIND MORE CLASSES 

Free Beginner's Class for Apple users. In 
San Diego, two-session course on 9/26/81 and 
10/30/31 at 1 p.m. at Computer Merchant, 5107 
El Cajon Blvd. K. V. Amatoeek, Instructor. 



Introductory classes in poIyFORTH 
programming will be offered September 14-18 
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How to form a FIG Chapter: 

1. You decide on a time and place for the 
first meeting in your area. (Allow at least 
8 weeks for steps 2 and 3.) 

2. Send FIG a meeting announcemwit on one 
side of 8-1/2 x 11 paper (one copy is 

enough). Also send list of ZIP numbers 
that you want mailed to (use first three 
digits if it works for you). 

3. FIG will print, address and mail to 
members with the 2IP^ you want from 

. San Carlos, CA. 

4. When you've had your first meeting with 5 
Of more attendees then FIG will provide 
you with names in your area. You have to 
teU us when you have 5 or more. 



Southwest 

Phoenix Peter Bates at (602) 996-8398. 
Tutsa 

3rd Tues FIG Meeting, 7:30 p.m., The 

Computer Store, 4343 So. Peoria, 
Tulsa, OK. Bob Giles, (918) 599- 
9304 or Art Gorski, (918) 743-0113. 

Texas Jeff Lewis, (713) 719-3320 or John 
Earls, (214) 661-2928 or Dwayne 
Gustaus, (817) 387-6976. John 
Hastings (512) 855-1918. 

Mid Atlantic 

Potomac Joel Shprentz, (703) 437-9218. 
New Jersey George Lyons (201) 451-2905. 
New York Tom Jung, (212) 746-4062. 



Northern California 

4th Sat FIG Monthly Meeting, 1:00 p.m., at 
Southland Shopping Ctr., Hayward, 
CA. FORML Worksliop at 10:00 am. 

Southern California 
Los Angeles 

4th Sat FIG Meeting, 11:00 a.m., Allstate 
Savings, 8800 So. ^pulveda, L.A. 
Philip Wesson, (213) 649-1428. 

Orange County 

3rd Sat FIG Meeting, 12:00 noon, Fullerton 
Savings, 18020 Brockhorst, Fountain 
Valley, CA. (714) 896-2016. 



San Diego 
Thur 



Northwe st 
Seattle 



FIG Meeting, 12:00 
Kelly, (714) 268-3100, 
site. 



noon. Guy 
X 4784 for 



Chuck Pliske or Dwight Vandenburg, 
(206) 542-8370. 



Midwest 
be'trolt 



Dean Vieau, (313) 493-5105. 



Foreign 

Australia Lance CoUins (03) 292600. 



England 



Japan 



Canada 
Quebec 



FORTH Interest Group, c/o 38, 
Worsley Road, Frimley, Camberley, 
Surrey, GU16 5AU, England 

FORTH Interest Group, Baba-bldg. 
8F, 3-23-8, Nishi-Shimbashi, Minato- 
ku, Toyko, 105 Japan. 



Gilles Paillard, (418) 871-1960 or 
643-2561. 



West Germany 



Wolf Geryert, Roter Hahn 29, D-2 
Hamburg '72, West Germany ,(040) 
644-3985. 



New England 
Boston 
1st Wed 



FIG Meeting, 7*00 p.m., Mitre Corp., 

Cafeteria, Bedford, MA. Bob 
Demrow, (617) 389-6400, xl98. 



Boston 
3pd Wed 



MMSFORTH Users Group, 7:00 p.m., 
Cochituate, MA. Dick Miller, (617) 
653-6136 for site. 
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RDRTH VENDORS 



The foJloiving vendors have versions of 
FORTH available or ape consultants. (FIG 
makes no judgment on any praductsO 

ALPHA MKHO 

Prafesuonal Managsmant ServicM 

724 Arastradertj Rd. #109 
Palo Alto, CA 94306 
(al5} 858-2218 

Sierra Computer Co. 
617 Mark NE 
Albuquerque, NM B712? 

APPLE 
lUS (Cap"n Software) 
2B1 Arlington Avanua 
Berkeley, CA 947M 
(415) 525-9452 

George Uyona 
260 Hendsrvon St« 
Jersey City, NJ 07302 
(201) 451-2905 

MicpoMotion 

12077 Wilshire Blvd. #506 
Los Angeles, CA 90D2S 
(213) B21'4340 

CROSS COMRLERS 

Nautilus Systems 
P.O. Box 1099 
Santa Cruz, CA 95061 
(408) 475-7461 

piriyFDRTH 

FORIH ^> 
2709 PKlfle Cowt Hwy, 
Hermoaa BeKcht CA 9(k54 
(213) 372-9493 

LYNX 

3301 Ocean Park #301 
Santa Monica, CA 904O5 
(213) 450-2466 

M & B Design 

B20 Snwetbay Drive 

Sunnyvale, CA 94086 

Micro polls 
9rmw Labi, Ltd. 
P. Q. Box 5471 
l^ywerd,CA 94540 
(415) 276-6050 

North Star 
The Software Works, Inc. 
P. O. Box 43B6 
Mountain Viewr, CA 94040 
(408) 756-4938 

POP-U 

Laboratory Sdftware Syeteme, he 
3634 Mandevtlle Cwiyon Rd> 
Los Angeles, CA 90049 
(213) 472-6995 

John S. James 
P. asm 348 
Barkel^t CA 94701 



OSI 

Consumer Computer* 
B907 LaMesa Blvd. 
LaMesa, C A 92041 
(714) 698-8008 

Software Federation 
44 Uhlvenity Dr. 
Arlington Heights, IL 60004 

(312) 259-1355 

Technical Products Co. 
P. O. Box 129B3 
Gainsville, FL 32604 
(904) 372-8439 

Tom ZImmar 
292 Faicato Dr. 

Milpitas, CA 95035 

6800 & 6809 

Talbot MicTosyatems 
5030 Kensington Way 
Riverside, CA 92507 
(714) 781-0464 



TRS-80 
Miller Mlcroeomputeir 
61 Lake Shore Rd. 
Natick, iviA 01760 
(617) 653-6136 

Tha Software Fwm 

P. O. Box 2304 
Reston, VA Z2O90 

Sri us Systems 
7526 Oak Ridge Hwy, 
Knoxville, TN 37921 
(615) 695-6563 



6502 

Eric C. Rehnke 

540 S. Ranch View Circle #61 

Anaheim HOit, CA 92087 

aoao/zso/CP/M 

Laboratory Microsystemi 
4147 Beethoven St. 
Los Angeles, CA 90066 

(213) 390-9292 

Timin Engineering Co. 
9575 Genesse Ave. #E-2 
San Diego, CA 9Z121 
(714) 455-900e 

AppUeMUm Pwkegei 

InnoSys 

21S0 S^Mttuck Avenue 
Serketey, CA 94704 

(415) 843-B114 

Decision Resources Corp. 
28Z03 rUdgefera Ct, 
Rancho Palo Vm6o, CA 90274 

(213) 377-3533 

KV33 Corp. 
PO Box 27246 
Tucson, AZ 85726 



Empwical Res. Qrp. 

PO Sox \ 176 
Milton, WA 98554 
(206) 631-4855 

Flimwaro, Boards and MaddnB* 
Datricon 
7911 33rd Dr. 
Portland^ OR 97211 
(503) 264-8277 

Forward Technology 
2595 Martin Avenue 
Santa Clere, CA 95050 
(408) 293-9993 

Rockwell International 
Microelectronics Devices 
P.O, Box 3669 
Anaheim, CA 92803 
ai4) 632-2862 

Zandex Corp. 
6398 Dougherty Rd. 
Dublin, CA 94566 

Variety of FORTH Product* 
Interactive Computer SyMema, Inc. 
6403 Oi Marco Rd. 
Tampa, FL 33614 

MoutMain \naiw fteat 
P. a Box 4656 
Mountain View, CA 94040 
(415)961-4103 

Supenoft AaMielatae 
P.O, Box 1628 
Champaign, IL 61820 
(217) 359-2112 



Creative Solutions, Inc. 
4B01 Randolph Rd. 
Rockville, MD 208S2 

Dave Boulton 
581 Oakrldge Dr. 

Redwood City, CA 94062 
(415) 368-3257 

Etmer W. Fittery 
110 Mc Gregor Avenue 
l^t. Arlington, NJ 07856 
<213) 663.1580 

(SoFOfiTH 
504 Lakemead Way 
Redwood City, CA 94062 
(415) 366-6124 

Inner Access 
517K Marine View 
Belmont, CA 94002 
(415) 591-8295 

Henry Laxen 

1259 Cornell 
Berkeley, CA 94706 
(415) 525-8532 



VENDORS SEE PUBLISHER*S CXMXIMN 
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FORTH INTEREST GROUP 
NATIONAL CONVENTION 



NOVEMBER 28, 1981 



Marriott Hotel 
Santa Clara, CA 



9:00 am - 6:30 pm Papers and E^chibits 

7:30 pm Dinner and Speakers 



LEARN FORTH 

Hbw to learn and/or teach FORTH 
and FORTH applications 



F^eregistration Form 

NameCs) 

Company 

Address 

City State Zip 

Rione C l Ext 

I am interested in presenting a paper on: 



Enclosed is a check for: # $3-00 admisaionCs) $_ 

(100 Limit) # i! $20.00 dimerCs) $_ 

Total $_ 

FORTH Vendor: 8' Table H $50. OD $ 



Return To: FORTH Interest Group 

PO Box 1105 

San Carlos, CA 94070 



Page 99 



FORTH DIMENSIONS in/3 



